home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Graphics / RastPort.asm < prev    next >
Assembly Source File  |  1990-05-11  |  1KB  |  75 lines
  1. *
  2. *    RastPort.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Graphics/RastPort.i
  7. *
  8.  
  9.     SECTION PCQ_Runtime,CODE
  10.  
  11.     XREF    _GfxBase
  12.  
  13.     XREF    _LVOAllocRaster
  14.     XDEF    _AllocRaster
  15. _AllocRaster
  16.     move.w    4(sp),d1
  17.     move.w    6(sp),d0
  18.     move.l    _GfxBase,a6
  19.     jmp    _LVOAllocRaster(a6)
  20.  
  21.  
  22.     XREF    _LVOFreeRaster
  23.     XDEF    _FreeRaster
  24. _FreeRaster
  25.     move.w    4(sp),d1
  26.     move.w    6(sp),d0
  27.     move.l    8(sp),a0
  28.     move.l    _GfxBase,a6
  29.     jmp    _LVOFreeRaster(a6)
  30.  
  31.  
  32.     XREF    _LVOInitRastPort
  33.     XDEF    _InitRastPort
  34. _InitRastPort
  35.     move.l    4(sp),a1
  36.     move.l    _GfxBase,a6
  37.     jmp    _LVOInitRastPort(a6)
  38.  
  39.  
  40.     XREF    _LVOInitTmpRas
  41.     XDEF    _InitTmpRas
  42. _InitTmpRas
  43.     move.l    4(sp),d0
  44.     move.l    8(sp),a1
  45.     move.l    12(sp),a0
  46.     move.l    _GfxBase,a6
  47.     jmp    _LVOInitTmpRas(a6)
  48.  
  49.  
  50.     XREF    _LVOScrollRaster
  51.     XDEF    _ScrollRaster
  52. _ScrollRaster
  53.     movem.l    d2/d3/d4/d5,-(sp)
  54.     move.w    20(sp),d5
  55.     move.w    22(sp),d4
  56.     move.w    24(sp),d3
  57.     move.w    26(sp),d2
  58.     move.w    28(sp),d1
  59.     move.w    30(sp),d0
  60.     move.l    32(sp),a1
  61.     move.l    _GfxBase,a6
  62.     jsr    _LVOScrollRaster(a6)
  63.     movem.l    (sp)+,d2/d3/d4/d5
  64.     rts
  65.  
  66.     XREF    _LVOSetRast
  67.     XDEF    _SetRast
  68. _SetRast
  69.     move.w    4(sp),d0
  70.     move.l    6(sp),a1
  71.     move.l    _GfxBase,a6
  72.     jmp    _LVOSetRast(a6)
  73.  
  74.     END
  75.